**Dora(lo Smalltalk Miciocodc--A Scnu-Lilcral translation from Byterp.Mu 
**Last Edited: October 12, 1978 10:15 AM 

** By convention, labels starting with '.' are used only within the immediate vicinity 
** (same subroutine or other local piece of code). 



l^itle[Dsmall.Mc]; 
Top Level; 



*Can smash Link-when calling two+ levels deep, be sure 
*to change tlie level appropriately 



*Dcfine the Macros 

M[DonlKnowR, KnowRBase[BBRegs]]; 

*Set up dispatch addresses in IM 



Scl[Dispatchl, 4700] 
Scl[Dispalch2, 4600] 
Scl[Dispatch3, 6400] 
Scl[Dispatch4, 4100] 
Scl[Dispatch5, 4000] 
Scl[Dispatch6, 3700] 
Sct[Dispatch7, 3600] 
Sct[Dispalch8, 6000] 
Sct[Dispatch9, 5100] 



*20-way dispatch 
*10-way dispatch 
*20-way dispatch 
*20-way dispatch 
*10-way dispatch 
*20-way dispatch 
* 10- way dispatch 
*10-way dispatch 
*was 3400 



*i.e. force use of FF on stores 



(OpCode Dispatch) 

(OpsDispatch) 

on bits 8:11 (ByteTypeD) 

(PrimOpsDispatch) 

(ArithDispatch) 

(Omsgs) 

(DcltaDispatch) 

(Returns) 



*BytcCodc luterprctcr-Dorado microcode translated from Byterp.Mii[Alto] 

KnowRbasc[AEMRegs]; *Make sure that the assembler knows RBase = AcmRegs 

* EMStart is the entry point to the Alto emulator 

EMStart: 

MemBase ^ AcmMemBase; 

RBase *- RBasc[AemRegs]; 

Branch[Start]; *Start is the emulator's actual entry point 

*EMTrap is the entry point to the Emulator trap 

EMTrap: 

MemBase *- AemMemBase; 

RBase <- RBase[AemRegs]; 

Branchffrap]; *Go to emulator trap 

* Entry from Alto emulator on trapped Nova instructions to microcode 



TrapX: 

Kno wRBasc[ AEMRegs] ; 
T ^ Ldf[lreg, 4, 10]; 
B <- T, BigBDispatch; 
Branch[OpCodeDispatch]; 



*Just came from emulator 

*Ireg has actual instruction//load low 4 bits 



OpCodeDispatch: 
Branch[Ex tract], 
Branch[Inject], 
Branch[ReR:t], 
Branchfrrap], 
Branch[Sundry], 
Branch[Sundry2], 
Branch [Trap], 
BranchflYap], 
BranchflYap], 
Branch[Trap], 
Branch[Byterp], 
Branch[Trap], 
BranchflYap], 
BranchflYap], 
Branch[NovaRet], 
Branch[Trap], 

Sundry: 

T *- Ldf[Ireg, 3, 0]; 
B +- T, BDispatch; 
Branch[OpsDispatch] ; 

OpsDispatch: 
Branch[IvalTP], 
BranchfllashT], 
Branch[Snat], 



Alpispatchl, 0]; 
At[Dispatchl, 1]; 
At[Dispatchl, 2]; 
Al[Dispatchl, 3]; 
At[Dispatchl, 4]; 
At[Dispatchl, 5]; 
At[Dispatchl, 6]; 
At[Dispatchl, 7]; 
At[Dispatchl, 10] 
Al[Dispatchl, 11] 
At[Dispatchl, 12] 
At[Dispatchl, 13] 
At[Dispatchl, 14] 
At[Dispatchl, 15] 
Al[Dispatchl, 16] 
Atpispatchl, 17] 



*700xx 
*704xx 
*710xx 
*714xx 
*720xx 
*724xx 



♦750xx 



*770xx 



*want low three bits (ignore 3 higher bits) 
*72000 ops dispatch here, i.e. Nova special ops 



Al[Dispatch2, 0]; 
At[Dispatch2, 1]; 
At[Dispatch2, 4]; 



Sundry2: 

A ^ Ireg, DblBranch[WriteR, ReadR, R odd]; 



♦72400 = Readr, 72401 = WritcR 



*NovaCall and NovaRet-Call to Nova from microcode and return 



NovaCall: 

RBasc <- RBasc[AemRegs]; 

McmBasc <- AcmMcniBasc; 

T ^ T + (400c); 

Xrcg ♦- T + (130c); 

T ♦- Ireg; 

SavDisp ^ T; 

Fetch ♦- Xrcg; 

Pc <- Md,^Branch[EmStart]; 



^Load trap op from T 



•"jump into trap vector (to Nova Instrs.) 



NovaRet: ii 

KnowRbasc[AEMRegs]; 

T ^ Ldf[lreg, 4, 0]; *Get low 4 bits 

Xrcg *- T, RBase *■ RBase[SavDisp]; 

T *- SavDisp, RBase <- RBase[AemRegs]; 

Ireg *- T; 

B <- Xreg, BDispatch; 

Branch[NovaRcturns]; 



NovaRcturns: 
Branch[OvRet], 
Branch[FiRet], 
Branch[FltRet], 
Branch [AllocRet], 
Branch[PrimFail], 
Branch[SndMsg], 
Branch[SupRet], 
Branch[PrimRct], 



At[Dispatch8, 
At[Dispatch8, 1 
At[Dispatch8, 2 
At[Dispatch8, 3 
At[Dispatch8, 4 
At[Dispatch8, 5 
At[Dispatch8. 6 
At[Dispatch8, 7 



FetchTPc: 

DontKnowR; 

Fetch *- T; 

Pc ^ Md, Branch[EMStart]; 



*Force use of FF 
*uses FF 



*RcadR/WritcR: Read an R register, with argument in AcO-retunis in/stores Acl 

ReadR: 

KnowRBase[AcmRegs]; 
B *- AcO, BigBDispatch; 
Xreg ♦- T - T, Branch[.RRegs]; *0 means read 

*WriteR: Write an R register, with R# in AcO, data in Acl 

WriteR: 

KnowRBase[AemRegs]; 

T <- Acl; 

B ^ AcO, BigBDispatch; 

Xreg *- (Ic), Branch[.RRcgs]; *1 means write 



.RRegs: 
Nop, 
lirancli[. RcgCoreBase], 



Al[Dispatch9, 0]; *to make dispatch work 

At[Dispatch9, 14]; 



Branch[. 
B ranch [. 
Branchf. 
Branch[. 
Branch[. 
Branch[. 
Branch[. 
Branch[. 
Branch[. 
Branch[. 
Braiich[. 
Branch[. 
Branch[. 
Branch[. 
Branch[, 
Branch[. 
Branch[. 
Branch[, 
Branch[. 
Branch[, 



RcgPcb], 

RcgAOop], 

RcgName], 

RegACore], 

RcgFather], 

RcgMitiAt], 

RcgPmBase], 

RegRotBase], 

RegArcc], 

RcgSavDisp], 

RcgBCorc], 

RegBOop], 

RcgLocFrame], 

RegStackP], 

RegTop], 

RegCaddr], 

RegXPnune], 

RegSelf], 

RcgSupMod], 

RegCtxt], 



At 
At 

At| 
All 
At 
All 
Al 
All 
At 
At 
Atl 
At 
At 
At 
At! 
Atl 
At 
At 
At 
At 



[Dispatch9, 15] 
[Dispatch9. 17] 
[Dispatch9, 44] 
[Dispatch9. 52] 
[Dispatch9. 53] 
[Dispatch9. 54] 
[Dispatch9, 55] 
[Dispatch9, 56] 
[Dispatch9, 60] 
[Dispalch9, 62] 
|Dispatch9, 63] 
[Dispatch9, 65] 
[Dispatch9, 66] 
[Dispatch9, 67] 
[Dispatch9, 70] 
[Dispatch9, 71] 
[Dispatch9, 72] 
[Dispatch9, 73] 
[Dispatch9, 74] 
[Dispatch9, 76] 



.RegCoreBase: 

KnowRBasc[AEMRegs]; 
MemBase *- CorcBascBr, A 



Xrcg, DblBranch[.RBr, .WBr, R Even]; 



.RegPcb: 

KnowRBase[ AEMRegs] ; 

A <- XRcg, DblBranch[.Rl, .Wl, R Even]; 
.Wl: 

Pcb ♦- T, Branch[JumpOut]; 
.Rl: 

RBase ^ RBase[Pcb]; 

T ^ Pcb, Branch[.ReadOut]; 



.RegAOop: 

KnowRBasc[AEMRegs]; 

A <- XRcg, DblBranch[.R2, .W2, R Even]; 
.W2: 

AOop <- T, Branch[.JumpOut]; 
.R2: 

RBase ♦- RBasc[AOop]; 

T <- AOop, Branch[.ReadOut]; 



.RegName: 

Kno wR Basc[ AEM Regs] ; 

A <- XRcg, DbrBranch[.R3, .W3, R Even]; 
.W3: 

Name <- T, Branch[,JumpOut]; 
.R3: 

RBase *- RBasc[Namc]; 

T *- Name, Branch[.ReadOut]; 



.RcgAcorc: 



KnowRBasc[AEMRcgs]; 

MeiiiBase <- AcorcBr, A <- XRcg, DblBranch[.RBr, .WBr, R Even]; 

.RcgFalhcr: 

KnowRBase[AEMRcgs]; 

A ^ XReg, DblBianch[.R5, .W5, R Even]; 
.W5: 

Father «- T, Branch[.JumpOut]; 
.R5: 

RBase ^ RBase[Father]; 

T *- Father, Branch[.ReadOut]; 

.RegMinAt: 

KnowRBase[AEMRegs]; 

A - XReg, DblBranch[.R6, .W6, R Even]; 
.W6: 

MinAt ♦- T, Branch[.JiimpOut]; 
.R6: 

RBase ^ RBase[MmAt]; 

T <- MinAt, Branch[.ReadOut]; 

.RegPmBase: 

KnowRBase[AEMRegs]; 

MemBase *- PmBaseBr, A <- XReg, DblBranch[.RBr, .WBr, R Even]; 

.RegRotBase: 

KnowRBase[AEMRcgs]; 

MemBase ♦- RotBaseBr, A *- XReg, DblBranch[.RBr, .WBr, R Even]; 

.RegArec: 

Kno wRBasc[ AEMRegs] ; 

MemBase <- ArccBr, A <- XReg, DblBranch[.RBr, .WBr, R Even]; 

.RegSavDisp: 

KnowRBasc[AEMRegs]; 

A <- XReg, DblBranch[.R10, .WIO, R Even]; 
.WIO: 

SavDisp *- T, Branch[.JumpOut]; 
■RIO: 

RBase <- RBasc[SavDisp]; 

T <- SavDisp, Branch[.ReadOut]; 

.RegBcore: 

KnowRBase[AEMRegs]; 

MemBase *■ BcoreBr, A <- XRcg, DblBranch[.RBr, .WBr, R Even]; 

.RegBOop: 

KnowRBasc[ AEMRegs]; 

A ^ XReg, DblBranch[.R12, .W12, R Even]; 
.W12: 

BOop ♦- T, Branch[.JumpOut]; 
.R12: 

RBase ^ RBase[BOop]; 

T ^ BOop, Branch[.RcadOut]; 



.RegLocFrame: 

KnowRJiasc[AEMRcgs]: 



McmBasc <- LocFrameBr, A <- XReg, DblBranch[.RBr, .WBr, R Even]; 

.RcgStackP: 

K no wRBasc[ A EM Regs] ; 

A *- XReg, DblBranch[.R14, .W14, R Even]; 
.W14: 

SlackP <- T, Branch[JumpOut]; 
.R14: 

RBase ^ RBasc[StackP]; 

T <- SlackP, Branch[.ReadOut]; 

.RcgTop: 

KnowRBasc[AEMRegs]; 

A <- XReg, DblBranch[.R15, .W15, R Even]; 
.W15: 

Top <- T, Branch[.JumpOut]; 
.R15: 

RBase ^ RBase[Top]; 

T <- Top, Branch[.ReadOut]; 



.RcgCaddr: 

KnowRBasc[AEMRegs]; 

A ^ XReg, DblBranch[.R16, .W16, R Even]; 
.W16: 

Caddr ♦- T, Branch[.JumpOut]; 
.R16: 

RBase ♦- RBase[Caddr]; 

T ♦- Caddr, Branch[.ReadOut]; 



.RegTFrame: 

KnowR Basc[ AEM Regs] ; 

MemBase *- TFraineBr, A <- XReg, DblBranch[.RBr, .WBr, R Even]; 

.RegSelf: 

KnowRBase[AEMRegs]; 

MemBase <- Selffir, A ♦- XReg, DblBranch[.RBr, .WBr, R Even]; 

.RegSupMod: 

KnowRBase[AEMRegs]; 

A ^ XReg, DblBranch[.R19, .W19, R Even]; 
.W19: 

SupMod ♦- T, Branch[.JumpOut]; 
.R19: 

RBase ♦- RBase[SupMod]; 

T ^ SupMod, Branch[.ReadOut]; 



.RegCtxt: 

K nowRBasc[AEMRegs]; 

A -H XReg, DblBranch[.R20, .W20, R Even]; 
.W20: 

Ctxt <- T, Branch[. Initialize]; 
.R20: 

RBase ^ RBasc[Ctxt]; 

T "<- Ctxt, Brancli[.ReadOut]; 



.RBr: 

KnowRBasc[AEM Regs]; 

MyTemp *- T - T, TaskingOff; 

B <- Md; *So it wont HOLD on me 

Dummy Rcf <- MyTemp; 

AcO *- Pipel; 

TaskingOn, Branch[. JumpOut] ; 
.WBr: 

BrLo <- Acl, Branch[ JumpOut]; 



.Readout: 

RBase ♦- RBasc[AemRegs]; 
AcO <- T; 

/.JumpOut: 

T - Ac3; 
\ Pc - T, Branch[EMStart]; 



*Back to the emulator registers (No need for FF) 



*Jmp ©.return (emulator regs still in RBase) 
*Retum to Alto Emulator 



*Initialize: set all base register high bytes to zero (i.e., use low 64K) 



.Initialize: 
T ♦- T - T; 

MemBase ♦- CoreBaseBr, 
MemBase <- PmBaseBr, 
MemBase *• RotBaseBr, 
MemBase ♦- LocFrameBr, 
MemBase *- ArecBr, 
MemBase <- TFrameBr, 
MemBase ♦- SelfBr, 
MemBase <- ACoreBr, 
MemBase <- BCoreBr, 
Branch[. JumpOut]; 

.LoadBrHi: 

BrHi <- T, Return; 

*Nova Hash trap 

HashT: 
^ KnowRBase[AEMRegs]; 

r <H Pc, RBase <- RBase[SavPc]; 
SavPc ^ T, Call[Hash]; 

AT[NHRctLoc!], 
RBase ♦- RBase[SavPc]; 
SavPc <- (SavPc) + 1; 
RBase <- RBasc[Rcsidue]; 
T ♦- Residue; 

*Load the AG's for the Nova 



Call 
Call 
Call 
Call 
C'dW 
Call 
Call 
Call 
Call 



[.LoadBrHi] 
[.LoadBrHi] 
[.LoadBrHi] 
[.LoadBrHi] 
[.LoadBrHi] 
[.LoadBrHi] 
[.LoadBrHi] 
[.LoadBrHi] 
[.LoadBrHi] 



*So failure will go to HFailO 



LoadAcs: 

RBase ♦- RBase[AcmRegs]; 

Ac3 *- T; 

RBase *- RBase[Rpc]; 
-^' T ^ Rpc, RBase *- RBase[AemRegs]t 
' Acl ^ T, ^raskingOff; *So that DummyRef 

RBase - RBasc[RotA]; 



*Ac3 <- old Roto for hits, Residue for misses 
works 



McmBasc <- RotBascBr; *]Vliist add RolBasc to RotAddr. 

B <- Md; *So that it won't HOLD on me 

DummyRef *- RotA; 

RBase ♦- RBase[AemRegs]; 

Ac2 <- Pipel; 

TaskingOn; 

RBasc <- RBase[SavPc]; 

T «- SavPc, RBase <- RBase[AemRegs]; *EmStart restores Emulator BR 

Spc: 

Pc <- T, Branch[EMStart]; 

HFailO: 

RBase <- RBase[Residue]; 

T <- Rsh[Rcsidue, 13], Branch[LoadAcs]; *Ac3 <- Res for miss (Insert) 

*Nova RefCt trap 

RefCt: 

RBase <- RBase[Pc]; 

T ♦- Pc; 

A ♦- Ireg, RBase *- RBasc[SavSp], Branch[.NRetD, R Odd]; 

Nop; *Placement 

SavSp *- T, Call[RefCkInc]; *Ireg even, do Refl 

Branch[RsSp]; 

.NRefD: 

SavSp *- T, Call[RefCkDec]; *Ireg odd, do RefD 

RsSp: 

RBase <- RBase[SavSp]; 

T *- SavSp, RBase ♦- RBase[AemRegs], Branch[Spc]; 

*Nova Ival trap 

IvalTp: *Assumes RBase = AemRegs 

KnowRBase[ AemRegs] ; 
T *- Pc, RBase <- RBase[SavSp]; 
SavSp ^ T, Call[Ival]; 

AT[NIRetLoc!], *So failure in Ival will go to PrimFail 

RBase *- RBasc[ AemRegs]; 
AcO <- T, Branch[RsSp]; 

*Skip not Atom 

Snat: 

T *■ AcO, RBase *- RBasc[MinAt]; 

Lu <- T - (MinAt); 

RBase *- RBase[AemRegs], Branch[EMStart, Carry]; 

Pc *- (Pc) + 1, Branch[EMStart]; 

♦Extract // 70000 Disp = < Width > < Shift > 

Extract: 

Branch [EMTrap]; *Emulator's trap 



Inject // 70400 Disp = < Width >< Shift > 



Inject: 

Branch[EMTrap]; *Emulator's trap 
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* The Bytccodc Interpreter proper 



Byterp: 

DonlKnowR; 
T *- T - T - 1; 
SupMod +- T; 
RBase ♦- RBasc[State]; 
AOop <- T; 
BOop *- T; 
DonlKnowR; 



* force use of FF 
*T *- (-Ic) 



Tree up FF in next two instmctions 



*Force use of FF 



Mode ^ T - T, Branch[NextByte]; 

*Intcrpret next bytecode 

NcxtByte: 

MemBase *- AcmMemBase; 

RBase *- RBase[Nww]; 

Lu <- Nww, RBase ♦- RBasc[Caddr], Branch[.NoIntl, R < 0]; *InterRjpts disabled? 

Fetch *- Caddr, Branch[.Dolnt, Alu#0]; *Wakeups waiting? 



^Absolute addressing 



NextNolnt: * Smash ops enter here. Fetch *- Caddr pending 

Pcb ♦- (Pcb) + 1, T ^ Md, DblBranch[.LByte, .RByte, R Even]; *Test which byte 

.Nolntl: 

Fetch <- Caddr, Branch[NextNoInt]; 



.Doint: 

T <- Md, RBase *- RBase[AemRegs]; 
Pc ^ (2c), Branch[EMStartl; 

.LByte: 

RBase ^ RBasc[AemRegs]; 

Ireg ♦- Rsh[T, 10], Branchpispatch]; 

Kno wRbase[S tate] ; 

.RByte: 

Caddr - (Caddr) + 1; 
RBase ♦- RBase[AemRegs]; 
Ireg <- T and (377c); 

Dispatch: 
Nop; 

RBase <- RBase[Ireg]; 
T ^ Rsh[Ireg, 4]; 
B *- T, BigBDispatch; 



* finish memory reference 

*Back to Alto emulator for interrupt 



*wait for T to load 
*Push left byte over 

*Hope that State's region is in control now 



^use right byte 



*So that pipelining won't smash T 
*in case it came from a superclass call 

^Dispatch on high 4 bits of low byte 



T <- (ireg) and (17c), Branch[BytclypeD]; *T is low four bits 



ByteTypeD: 
Branch[Ivars], 
liranchfTvars], 
Branch[Lvars], 
]iranch[Evars2], 
]iranch[llVars], 
Branch[llVars2], 
]irandifllVars3], 
Jiranch[Avars], 
Brancli[PrimOps], 



Al[Dispatch3, 0] 
Al[Dispatch3, 1] 
Al[Dispatch3. 2] 
Al[Dispatch3, 3] 
AllDispatch3, 4] 
Al[Dispatch3, 5] 
Al[Dispatch3. 6] 
Al[Dispalch3, 7] 
Al[Dispatch3. 10]; 
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Branch[ShortJiimps], At[Dispalch3, 11] 

Braiich[LongJiiinps], Al[Dispalch3, 12] 

Branch[ATrapMsgs], Al[Dispatch3, 13] 

Branch[OTiapMsgs], Al[Dispatch3, 14] 

Brancl:i[L.itMsgs], Al[Dispatch3, 15] 

Branch[LitJVlsgs2], Al[Dispatch3, 16] 

Branch[LitMsgs3], Al[Dispatch3, 17]; 

*Load data for stack 

Ivars: 

MemBasc *- SelfBr, Brancli[Lmem]; *Load relative to self 

Tvars: 

MemBase *- TFrameBr, Branch [Lmem]; *l.oad relative to temp frame 

Lvars2: 

T ^ (T) + (20c); *Offset by 20c 
Lvars: 

MemBase *- LocFrameBr, BranchjLmem]; *Load relative to localframe 

IlVars2: 

T *- (T) + (20c), Branch[Ilvars]; 
IlVars3: 

T <- (T) + (40c); 
Ilvars: 

MemBase *- LocFrameBr, MyTemp *- T; 

Fetch <- MyTemp; *load @ localframe (Fetch ♦- RM doesn't use FF) 

Argl «- Md, Call[Hash]; *Hash has argument in Argl 

Call[Dirty]; *Hash indirect literal object reference, dirty 

MemBase <- AemMemBase, Branch[Lmem]; 

Avars: 

Lu <- (Ireg) and (10c); *Load relative to Arec 

Branch[.Lmcml, Alu = 0]; 

T ^ T + (Cascme.c); 

MemBase ♦- AemMemBase, Branch[Lmem]; *System constant, not Arec 

.Lmeml: 

MemBase *- ArecBr; 

Lmem: 

RBase ^ RBase[Mode]; 

A - Mode, DblBranch[Push, Pull, R Even]; 

Push: *Stack to Data 

Fetch ♦- T; 

RBase *- RBasc[StackP]; 
Nop; 
StackP <- (StackP) + 1, T ♦- Md; 

Shove: *Replace top of stack with T, same as pop and push 

RBase ♦- RBascHop]; 
I'op *- T, Call[ReiCkLlnc]; 

RcfX4: 

R13ase <- RBasc[StackP]; *Camc from region with Top 

T *- StackP; 
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*Stor: 

*T = new stack pointer 
*rop = New oop 
*Tenipfrainc[Stackp *• T] *• Top 

Stor: 

RBasc ^ RBase[StackP]; 

Stack? *■ T', 

McmBase <- TFrameBr; 

Fetch ^ StackP; 

RBasc <- RBasc[AcmRcgs]; 

Argl <- Md; 

RBase <- RBase[Top]; 
^ Store *- T, Md <- Top, Call[RefCkDec]; 

Braiich[Byteip]; 

*Dispatch on the primitive operations like smash, pop, etc. 

PrimOps: 

B <- T, BigBDispatch; *T = Ireg and (17c) 
RBase ♦- RBascfStatc], Branch[PrimOpsDispatch]; 



PrimOpsDispatch: 
Branch[SmashPop], 
Branch[Smash], 
Branch[Pop], 
Branch[Rtm], 
Branch[Rcnd], 
Branch[Current], 
Branch[Super], 
Branch[ScndAgain], 
Branch[XIVars], 
Branch[XTVars], 
Branch[XLVars], 
Branch[XILVars], 
BranchjXLitMsgs], 



At[Dispatch4, 
Al[Dispatch4, 1 
At[Dispatch4, 2 
At[Dispatch4, 3 
Al[Dispatch4, 4 
Al[Dispatch4, 5 
Al[Dispatch4, 6 
Al[Dispatch4, 7 
Al[Dispatch4, 10] 
At[Dispatch4, 11] 
At[Dispatch4, 12] 
At[Dispatch4, 13] 
At[Dispatch4, 14] 



* Can't call it "Return' 



*SmashPop: 

*Top = Data to be stored 

*Store T into location described by next byte 

SmashPop: 

RBasc ♦- RBasc[StackP]; 

StackP *- (StackP) - 1, RBase <- RBase[Mode]; 

Smash: 

Mode ♦- (Ic); 

McmBase *- AemMemBasc; 

T <- (Fetch <- Caddr), Branch[NcxtNoInt]; *Fetch instaiction word 

*Pull Stack to I)ata--T + McmBase = Addr. of data, Top = new oop to be stored in data 

Pull: 

Fetch *■ T; 

RBasc *- RBasc[Argl]; 

Argl ♦- Md; 

RBasc <- RBasc[Top]; 
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Store ^ T, Md <- Top, Call[RerckDec]; *RcfD old oop 

RBase <- RBase[rop]; 

T - Top, Call[RcfCkLInc]; 

RBasc ♦- RBasc[Mo(!4" 

A ^ Mode, Mode ^ (Oc), Branch[NextBytc, R Odd]; 

Branch[RiSubEnd]; *because of placement constraint 



^Do it cigain, Refl new oop 



Pop: 

RBase ^ RBasc[StackP}; 

StackP ^ (StackP) - 1, Brancb[NextByte]; 

*Return to sender 



Rtrri: 

McmBase ♦- Areciir; 

T <- (Senderf.c); 

Fetch <- T, Branch[DoReturn]; * Address sender 

*Return control to caller (Return from Eval) 

Rend: 

RBase ^ RBase[StackP]; 

T <- (StackP) - I, MemBase <- TFrameBr; 

Fetch +- T, Branch[DoReturn]; 

*DoRctura"pcrform an actual control return 

*T and memory pending = address of context to return to 

DoReturn: 

RBase *- RBasc[Templ]; 
Tempi <- T, RBase ^ RBase[Ctxt]; 
T ^ Ctxt, Ctxt ♦- Md; 
RBasc <- RBasc[Name]; 
Name *- T, RBase <- RBase[Templ]; 
^Store <- Tempi ..Md. ♦- AllOnes.c; 
T <- StackP; * 

McmBase <- TFrameBr; 
MyTemp <- AllOnes.c; 
— ^ Store <~ T, ^'-rt ♦- ?vl/r€iiip?L' ' ;" 

RBase *- RBasc[Aemkcgs]; 
A <- Ireg, DblBranch[EndEnd, ReturnEnd, R Even]; 



*Ctxt <- My sender 

*Name *• Current context 
*Nil my sender 



*:6Dlt« 



EndEnd: 

RBase *■ RBase[AemRcgs]; 

Nop; 

RBase *■ RBase[StackP]; 

T ^ StackP - (Si .4P) - (2c); 

Call[Stash]; 

Branch[RetumEnd]' 

ReturnEnd: • -. 
RBase <- ^l9::-^Cti '^; 
T ^ Ctxt. CJ:[H *:'!!.]; 
Cal1[DirtyI; 
McmBase *- Ar-^'^? 
BrLo ♦- T - 



*Placement 

*Can't do in 1 instr. because of placement conflict 
*Argument in T 



*Hash current context, dirty... 
*Only legal after hash call 

*T *- Core address of current activation 
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* Restore Pcb from arcc 

Mylemp ♦- Pcf.c; 

Fetch ♦- MyTcmp, T ♦- MOopOO.c; 

Pcb ^ T + (Md); 

* Restore StackP similarly 

Mylcmp <- StackPf.c; 
Fetch ♦- MyTemp; 
StackP <- T + (Md); 

* Restore instance 



^MOopOO.c is -(OopOO.c) 



MyTemp <- (Ic); 

Fetch *- MyTemp; 

RBasc <- RBase[MinAt]; 

T ^ Md; 

Lu ♦- (T) - (MinAt), RBase <- RBase[Argl]; 

Argl <- Md, DblBranch[.NoHash, .DoHash, Carry]; 

.NoHash: 

T *- T - T - 1, Branch[.GotSelf]; 



.DoHash: 
Call[Hash]; 
Call[Dirty]; 

.GotSelf: 

MemBase *- SelfBr; 

BrLo *- T; 

T ^ (2c), Call[GetTpo]; 



"T *- C.A.[Arec[Inst]] 



*GctTpo wants T as an argument 



*Hash Method. No Dirty 

*Placement 

* Argument is in T 



*Referencing TFrame 
*T <- C.A.[Arccrrframe]] 



*Zap me 



Call[MapCodc]; 

Nop; 

T ^ (3c), Call[GetTpo]; 

Call[Dirty]; 

MemBase ♦- TFrameBr; 

BrLo ♦- T; 

RBase <- RBase[Name]; 

T ^ Name, Call[RcfCkLDec]; 

RJiase <- RBase[StackP]; 

T <- (StackP) + 1, Branch[Stor]; *And push top of old stack on new 

*Current"Push current context 

Current: 

RBase *- RBasc[StackP]; 

StackP - (StackP) + 1, RBase <- RBasc[Ctxt]; 

T ■<- Ctxt, Branch[Shove]; *Shove takes argument in T 



Super: 

T ^ (33c), Branch[NovaCall]; 



♦NovaCall 33 



SupRct: 

RBasc <- RBasc[Caddr]; 

MemBase ♦- AcmMemBase; 

Fetch *- Caddr, Bnmch[NcxtNolnt]; 



*May not be necessary 
*Fctch Instr word 
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Send Again: 

Branch[SndMsg]; 

*Exlcnded Loads 

XiVars: 

Call[NxtByte]; 

McmBase ♦- Sclfflr, Branch[Lmem]; *NxtBytc returns in T 

XtVars: 

Call[NxtBytc]; 

McmBase <- TFranicBr, Branch[Lmcm]; 

XlVars: 

Call[NxtByte]; 

McmBase ♦- LocFrameBr; 

MyTemp ^ T - T, Branch[Lmem]; 

XilVars: 

Call[NxtByte]; 
Branch[llVars]; 

XLitMsgs: 

RBasc *- RBase[AcmRegs]; 

IReg ^ (207c), Call[NxtByte]; 

MemBase <- LocFrameBr, Branch[FctchMsg]; 



16 



*ShortJumps" Control transfer operation of one to eight 

Short Jumps: 

KnowRBasc[AEMRcgs]; 

T <- (IRcg) and (7c); 

T <- (T) -H 1, Branch[.JmpCmn]; 

*LongJumps-- Control transfer operations of -1024 to 1023 

LongJumps: 
Call[NxtByte]; 
RBasc <- RBase[AcmRegs]; 
Argl <- T; 

T ^ Lsh[Ircg, 10]; *T[5-7]: Bias Index 

T *- T and (3400c); 

*(256*B.I. = True Bias + 02000) 
T *- (T) - (2000c); *Offsct for positive and negative jumps 

T *- T + (Argl); *Argl = AcO, an EmReg 

JmpCmn: 

KnowRBasc[ AFiMRegs] ; 

Lu <- (Ircg) and (10c); *Argl ^ T = number of bytes to be skipped 

Argl <- T, Branch[,DoJmp, Alu = 0]; 

* Conditional jump//BFP 

RBase *- RBase[Top]; 

Lu ♦- (Top) - (FalscOop.c); *Pop the stack, then see what top of stack was 

StackP ^ (StackP) - 1, Branch[.NoJmp, Alu#0]; *See if Tos is false 

RBase *- RBase[Pcb]; 

Pcb <- (Pcb) + (T), Branch[.DoJmpl]; *because of placement constraint 

.NoJmp: 

Branch[NcxtByte]; 

* Unconditional jump 

.DoJmp: 

RBase <- RBase[Pcb]; 

Pcb <- (Pcb) + (T); 
.DoJmpl: 

RBasc ♦- RBasc[AemRegs]; 

T *- (Argl) arsh 1; *right shift 1 for # of words skipped 

RBasc <- RBasc[Pcb]; 

A *- Pcb, RBase ♦- RBasc[AcmRegs], Branch[.IncAddr, R Odd); 

A +- Argl, Branch[.OddInc, R Odd]; *test bytes skipped is odd or even 

Branch[.IncAddr]; *placement constraint 

.Oddinc: 

T ♦- T + 1; *Left byte and odd skip, inc Caddr 

.IncAddr: 

RBase ^ RBasc[Caddr]; 

Caddr ♦- (Caddr) + (T), Branch[NextByte]; *Caddr ^ core address of next byte, go again 
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*Thc sixteen trapped arithmetic messages 

ATrapMsgs: 

RBasc <- RBasc[StackP]; 

T <- StackP, RBase *- RBase[AcmRegs]; 

Lu <- (Ircg) and (10c); 

SavSp *- T, Branch[.Aimp, Alu=:0]; *Save Stack pointer 

Branch[ Apply]; *cxtra instr because of placement constraints 

****Temp2 top of stack(i.e. Receiver), Temp3 is second-botli arguments 

.Aimp: 

RBase *- RBaseffop]; 

T <- Top, Call[Ivan]; 

RBase *- RBase['remp2]; 

Temp2 <- T, Call[PopTop]; 

Call[lvall]; 

RBase <- RBase[Temp3]; 

Temp3 ♦- T; 

T <- (Temp2) xor T; 

Temp4 *- T, RBase <- RBase[AemRegs]; 

T <- (IReg) and (17c); 

RBase <- RBase[Temp3]; 

B ♦- T, BigBDispatch; 

T <- Temp3, Branch[ArithDispatch]; 



AritliDispatch: 

Branch[Addarith], 

Branch[Subarith], 

Branch[Les], 

Branch[Gtr], 

Branch[Leq], 

Branch[Geq], 

Branch[Eql], 

Branch[Neq], 



At[Dispatch5, 
At[Dispatch5, 1 
At[Dispatch5, 2 
At[Dispatch5, 3 
At[Dispatch5, 4 
Al[Dispatch5, 5 
At[Dispatch5, 6 
At[Dispatch5, 7 



''Temp4 = Temp2 xor T (Temp2 xor Temp3) 



Addarith: 

Lu *- Temp4, Branch[.CkAddOf, R > =0]; 
T *- (Temp2) + T, Branch[ArithOut]; 



^branch if operand signs same 



.CkAddOf: 

T - (Temp2) + T; 
.CkOf: 

Lu <- (Temp2) xor (T); 

Brancli[.YesOf, Alu < 0]; 

ArithOut: 

Nop; *Placement 

Call[Intn]; 

RBase ♦- RBase[Top]; 

Top *- T, Branch[RcfX4]; 



*branch if overflow 



.YesOf: 

Branch[Apply]; 



Subarith: 
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KnowR Basc[Stack AndTemps] ; 

Lu *• Tcmp4, Branch[.CkSubOf, R < 0]; *branch if operand signs different 

T <- Clcmp2) - T, Branch[ArithOut]; 

.CkSubOf: 

T *■ (Temp2) - T, Branch[.CkOf]; 

Lcsi 

T <- (Temp2) - T; 
.Lrel: 

A *- Temp4, Lu ^ T, Branch[.LDiff, R<0]; 

DblBranch[Trmc, FFalse, Alu < 0]; 

Gtr: 

T ^ T - (Temp2); 
.Orel: 

A <- Temp4, Lu ♦- T, Branch[.GDiff, R < 0]; 

DblBranchflTme, FFalse, Alu < 0]; 

Eql: 

Lu ♦- Temp4; 

DblB ranch [ITme, FFalse, Alu = 0]; 

Neq: 

Lu <- Temp4; 

DblBranch[TFalse, Ffrue, Alu = 0]; 

Leq: 

T ^ (Temp2) - T - 1, Branch[.Lrel]; 

Geq: 

T ^ T - (Temp2) - 1, Branch[.Grel]; 

.LDiff: 

A ^ Temp2, DblBranchfrrrue, FFalse, R < 0]; 

.GDiff: 

A «- Tcmp3, DblBranchfn^rue, FFalse, R < 0]; 

* Two sets of true/false are needed because of branching constraints-checking signs in compares 

TFrue: 

T *- Top, Branch [Shove]; *Put receiver on top of stack 

FFalse: 

T <- FalscOop.c, Branch[Shove]; *Put False on top of stack 

FTrue: 

T *- Top, Branch[Shove]; *Put receiver on top of stack 

TFalsc: 

T <- FalseOop.c, Branch{Shove]; *Put False on top of stack 
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*****Other messages trapped by the microcode interpreter 



OTrapMsgs: 






RBase <- RBasc(StackP]; 






Q *- StackP; 






RBasc ♦- RBasc[AemRegs]; 






^1' <- (Ircg) and (17c); 






B «- T, BigBDispatch; 






SavSp <- Q, Branch[Omsgs] 


> 




Omsgs: 






Branch[Subscript], 


At[Dispatch6, 0]; 


*siibscript 


Branch[SubscriptGets], 


Al[13ispatch6, 1]; 


*subscript*- 


Branch[Next], 


Al[Dispalch6, 2]; 


*next 


Branch[NcxtGets], 


At[Dispatch6, 3]; 


*ncxt*- 


Branch[Lcn], 


At[Dispatcli6, 4]; 


*length 


Branch[Eq], 


At[Dispalch6, 5]; 


*idcntity 


Branch[Apply], 


Al[Dispatch6, 6]; 




Branch[Apply], 


Al[Dispatch6, 7]; 




Branch[Apply], 


At[Dispatch6, 10 


*class 


Branch[Apply], 


Al[Dispatch6, 11 


; *and: 


Branch[Apply], 


Al[Dispatch6, 12 


; *or: 


Branch[Apply], 


At[Dispatch6, 13 


; *new 


Branch[Apply], 


Al[Dispatch6, 14 


*new: 


Branch[Apply], 


At[Dispalch6, 15 


*to: 


Branch[Apply], 


At[Dispatch6, 16 




Branch[Apply], 


At[Dispatch6, 17 


; *asStream 



SubscriptGets: *Right bracket (subscripted store) 

CalliPopTop]; *pop top off 

RBasc ♦- RBasc[SavRl]; 
SavRl ♦- T; *Fetch new val for Dot<- 



Subscript: *Left bracket (subscripted load) 

Call[GtopCls]; *Get class of top of stack 

RBase *- RBase[Name]; 
Name *- T, Call[rcstVccStr]; 
RBase <- RBasc[Name]; 
1' *- Name, Call[Ilong]; 
RBase <- RBasc[Temp4]; 
Tcmp4 <- T, RBase ♦- RBase[AOop]; 
AOop *- AUOncs.c, Call[PopTop]; 
Call[Ivalll; 
Branch[IvalX3]; 



*Check to make sure arg is vec or str 



NcxtGets: 

Call[PopTop]; 

RBase <- RBase[SavRl]; 

SavRl <- T; 



*store next into stream 
*Felch new val for Next^ 



Next: 

Call[GtopCls]; 

Lu <- T - (StmCls.c); 

Branch[.NotSUii, Alu#0]; 

Call[Ilash]; 

Mem Base ♦- AcmMcmBasc, MyTemp 

MyTcmp ♦- (Fetch ♦- MyTernp) - 1; 

Mem Base *- ACoreBr; 



*Not a stream 
*T <- Core Add of stream 
(T) + 1; 

*Savc core address 
♦Referencing ACorc 
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BrLo <- Mylcnip; 

DonlKnowR; 

Temp 3 ♦- Md; 

RBasc *- RBasc[Top]; 

Q <- B <- Top; 

AOop *■ Q; 

Myl cmp ♦- T - T; 

MyTemp <- (Fetch ♦- MyTcmp) + (2c); 

Top *- Md, Fetch ♦- MyTemp; 

1' <- Md, Call[Ivall]; 

DontKnowR; 

Temp4 *- T; *(Uses FF) 

RBase <- RBasc[Top]; 

T <- Top, Call[GclassL]; 

DontKnowR; 

Name ♦- T; 

RBase ♦- RBase[Temp3]; 

T <- Temp3, Call[Ivall]; 

T *- (T) + 1; 

IvalX3: 

RBase <- RBase[Temp4]; 

Lu +- (Temp4) - (T); 

Temp2 *- T - 1, Branch[.IToBg. Alu < 0]; 

T ■«- Top, Branch[.INeg, Alu < 0]; 

BOop <- T; 

Argl <- T, Cal][Hash]; 

Call[Dirty]; 

MemBase <- BCoreBr; 

BrLo <- T; 

Nop; 

RBase ♦- RBase[Name]; 

T ♦- Name, Call [Test VecStrInt]; 

Lu «- T - 1, Branch[Vec, Alu = 0]; 

DblBranch[Str, Int, Alu = 0]; 

.NotStm: 

Branch[ Apply]; 



"Temp 3 <- stream index 



*A11 this so that we can do AOop <- Top (Uses FF) 

*Fetch stream contents 
*Fetch stream length 



*Alu <- val of length-val of index 
*check index > = length 
*Check index < = 



*dirty strector being indexed 
*referencing BCore 

*Placement 

*retums type code in T and Alu 



.IToBg: 

Branch[ Apply]; 

.INeg: 

Branch[ Apply]; 



Int: 



RBase <- RBase[AemRegs]; 

A ♦- Ircg, Branch[.lntNextGets, R Odd]; 

RBase ♦- RBasc[Tcmp3]; 

Temp 3 *- Temp2; 

T *- (2c), Call[Gti]; 

Temp4 <- T; 

T ^ r - T, Call[Gti]; 



*check for Next or Next«- 

*Tcmp3 +- Index of interval 

*Ternp4 <- value of Int step 
*T *- interval start ( = 0) 



(Uses FF) 
(Uses FF) 



MullP: 

RBasc <- RBase[Temp4]; 

Temp4 <- (Tcmp4) rsh 1, Brancli[.DoAdd, R Odd]; *test low bit of multiplier 
.Dbl: 
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'rcmp3 ♦- (Teinp3) + (Tcmp3), Db1Brancli[IntNStor, MullP, Alu = 0]; 



.DoAdd: 

T ^ (TempB) + T; 

Lu *- lcmp4, Branch[.Dbl]; 

InlNStor: 
Call[Intn]; 
DontKnowR; 
Top ^ T, Branch[RefX12]; 

.IntNcxtGets: 
Branch[ Apply]; 



*add to sum 
* for zero test 



*T ♦- Intrned sum (T) 
*Force use of FF in next instr 



Str: 



RBase *- RBase[Temp3]; 

T <- Temp2; 

Temp 3 <- T *- (T) rsh 1; 

MemBase <- BCoreBr; 

RBase *- RBasc[AemRegs]; 

Fetch <- T, B ^ Ireg, DblBranch[.StLd, .StSt, R Even]; 



T <- word index in string 



.StLd: 

RBase <- RBase[Temp2]; 

A <- Temp2, T *- Md, DblBranch[.StLdEv, .StLdOd, R Even]; 



*Load or store? 



*T ♦- word with byte 



.StLdEv: 
Nop; 
T ^ Rsh[T, 10]; 



* wait for T to load 
*Lefl byte 



.StLdOd: 

Nop; *Placement 

T ♦- T and (377c), Branch[IntnStor]; 



^Right byte 



*Can't abandon Md 

*Save new byte on Top, T *- value of new byte (Uses FF) 

*MyTemp ^ masked value of new byte 



.StSt: 

T *- Md, RBase ^ RBase[SavRl]; 

T <- SavRl; 

Top <- T, Call[Ivall]; 

RBase <- RBasc[State]; 

Mylemp <- T and (377c); 

RBase <- RBase[Temp3]; 

T <- Temp3, MemBase ♦- BCoreBr; 

Fetch *- T, B *- Temp2, DblBranch[.StStEv, .StStOd, R Even]; 

.StStEv: 

RBase ♦- RBase[State]; 

Mylcmp *- DPF[MyTemp, 10, 10, Md], Branch[.StStCm]; *Deposit in left byte 



.StStOd: 

RBase <- RBasc[State]; 

MyTcmp <- DPF[MyTemp, 10, 0, Md]; 

.StStCm: 

Store *- T, Md ♦- Myl^emp, Branch[RiSubEnd]; 



* Deposit in right byte 



Vec: 



MemBase *- BCoreBr; 
RJiasc +- RBasc[AcmRegs]; 



* Address clement of vector 
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A ^ Ircg. 13blBranch[.VcLd, .VcSt, R Even]; 

.VcLd: 

RBasc ♦- RBasc[Tcnip2]; 

Pclcli *" 'rcinp2' 

Top *- Md, Branch[RiSubEnd]; 

.VcSt: 

RBasc *- RBase[SavRl]; 

T *- SavRl; *Ncw oop 

RBase *- RBasc[Top]; 

Top <- T; *FF free 

RBasc *- RBasc[Temp2]; 

T ♦■ Tcmp2, Branch[Puli]; 

RiSubEnd: 

RBasc ♦- RBase[Top]; 

T *- Top. Call[RcfCkLInc]; 

RcfX12: 

McmBasc *- ACoreBr; 

T - (Ic); 

RBasc ^ RBase[AOop]; 

Lu ♦- (AOop) + 1; 

Fetch ^ T, DblBranch[.ImDone, .PostStm, Alu = 0]; 



.PoslStm: 

DontKnowR; 

Argl *- Md; 

Name ♦- Md, Call[Ival]; 

T *- (T) + 1, Call[lntn]; 

McmBase ♦- ACoreBr; 

MyTcmp ^ (Ic); 

Store ♦- MyTcmp, Md ♦- T; 

RBasc ♦- RBase[Name]; 

T ^ Name, Call[RcfCkLDec]; 

Branch[RefX4]; 



*Test load or store? 



"Top <- Oop in vec 



*Check for stream op 



*Address stream index 



.ImDone: 

T *- Md, Branch[RefX4]; 

Apply: 

RBasc ^ RBase[SavSp]; 

T <- SavSp; 

StackP *- T; *Uses FF 

McmBasc <- TFramcBr; 

Fetch ♦- T; 

RBasc <- RBasc[AemRegs]; 

1' ^ (Ircg) and (377c); 

T <- T - (244c); 

McmBasc <- AemMcmBase; 

RBasc ^ RBasc[rop]; 

lop <- Md, Branch[FetchMsg]; * -244 



^Can't abandon Md (not used) 



*Recovcr top of stack 

*ab solute addr 

diff between " + " byte code and addr of " + " atom 



Len: 



Call[GlopCls]; 

CailiTcstVecStr]; 

RBasc *- RBase[AcmRcgs]; 



*Argl loaded by GTopCls, not smashed by TestVecStr 
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T <- Argl, Call[llong]; 
Branch[ArilhOut]; 

Eq: 

Call[PopTop]; 

RBasc <- RBasc[Top]; 

Lu <- (Top) - (!'); 

T <- TrucOopml.c, Brai]ch[.lsEq, Alu = 0]; 

T ♦- FalscOop.c, Branch [Shove]; 

.IsEq: 

T ♦- T + 1, Branch[Shove]; 



:ic;lcHc4c4<4<**9i<>ic**H<4<Hc3i(!i:*Hc:i<*:i<4:*^**>|!:i:3ic*3it3i<4:4!4c^:!c*>i:*:it3i«4c:iiHc^4:4:4:Hc4<9H4cM!%H:4'HcHc 
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*Litmsgs— -Non-Trapped messages 



Litmsgs: 

MemBasc ♦- LocFrameBr; 

FctchMsg: 
Fclch ♦- T; 
Name ♦- Md; 



*entcr here with T-f-McmBase = addr of message, and correct BR 



SndMsg: 
-7 Call[GTopCls]; 

DontKnowR; 

SupMod - T, Call[riashL]; 

RBase ^ RBase[State]; 

MyTemp <- T + (MDictF.c); 

McmBase <- AcmMemBase; 

Fetch <- MyTemp; 

Lu *- Md + 1; 

BOop <- Md, DblBranch[.Nidl, .DictOk, Alu = 0]; *Null MDict fails 



*T ♦- class of top of stack 

*Don't make any assumptions about RBase 

*Flash class of target-no dirty 



*Relative to zero 



.DictOk: 
T ♦- Md; 
Call[HashL]; 

MemBase ♦- AcmMemBase, MyTemp *- T; 
Fetch *- MyTemp; 
MemBase +- BCoreBr; 
BrI.o ♦- T, T ♦- Md; 
Call[llong]; 

RBase *- RBaserremp2]; 
Temp2 <- T, Call[Hash]; 
RBase ♦- RBase[Names]; 
Names <- T, RBase *- RBase[Temp2]; 
T <- (Temp 2) - 1, RBase *- RBase[Name]; 

T ♦- (Name) and (T), Branch[.Nid2, Alu = 0]; *Zero MDict size fails; initial hash = name and len-1 
RBase *- RBase[Templ]; 



*IIash MDict of target, no dirty (arg. in T) 

*Referencing BCore 

*Temp2 = Length//Hash left side of dictionary 



Tempi <- T, MemBase <- AcmMemBase; 
Cnt ♦- -Is; 

.DluLp: 

T <- Tempi, RBase ^ RBase[Names]; 

T <- (T) + (Names); 

T *- (Fetch ^ T) - (Names); 

RBase <- RBase[Temp2]; 

Lu <- (lcmp2) - (T) - 1; 

DblBranch[.Wrap, .Inclx, Alu = 0]; 

.Inclx: 

Tempi <- (Tempi) + 1, Branch[.Dlull]; 

.Wrap: 

Tempi *- T - T, Branch[Wrap2, Cnt=0&+1]; *First wrap leaves in Cnt 

.DluLl: 

RBase *- RBase[Namel; 

Lu <- (Md) + 1; *Empty slot? 

T <- (Name) - (Md), Riiasc *- RBasc[Temp2], DblBranch[.Nid3, .NotNil, Alu = 0]: 



*Count wraparounds 

*Restore T to Tempi 
*Look at Names[index] 
* Index <- Index -f- 1 
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.NotNil: 

T *- (Tempi) - 1, DblBranch[.Gollt, .DluLp, Alu = 0]; 

.Gotit: 

DblBranch[.UnWrap, .IxOk, Alu < 0]; 

.UnWrap: 

KiiowRBasc[StackAndTcmps]; 
T ^ (Temp2) - 1; 

JxOk: 

Temp2 <- T; 

MemBase <- BCoreBr; 

T - (Ic); 

Fetch *- T; 

RBase *- RBase[Argl]; 

Argl <- Md, Call[Hash]: 

RBase *- RBasc[Tcmp2]; 

T ^ (Tcmp2) + (T), MemBase *- AemMemBase; 

Fetch ♦- T; 

RProg: 
Nop; 

RBase ^ RBase[BOopl; 
BOop ♦- Md:^ — -> 
Argl ^ Md^allJHash];^ 
MemBase ♦- AcmMemfiase, MyTemp <- T; 
Fetch *- MyTemp; 
MemBase *- BCoreBr; 
BrLo <- T; 

T - T - T, RBase <- RBase[Temp3]; 
Temp3 <- Md. T ♦- T -H 1; 
Lu <- Temp3; 

Lu <- (Temps) - 1, BranchpJytes, Alu = 01; 
Tempi <- T - T, Branch[Byterp, Alu = 0]; 



*Test for hit, otherwise loop 
*Un-inc hashi 



*found name— get value 

*real core address (more or less) 

*Frees up FF in next instr 
*BOop *- MDict[Literal Operator] 



*since under BCoreBr 

*increment to fetch 2nd method word 

*No primitive 

*Primitive 1 = NoOp = Branch[By terp] 



* Do a primitive. Start by transferring the args into the fixed communication area 



Fetch *■ T; 

RBase *- RBasc[StackP]; 

T ^ (Stack?) - 1; 

MemBase <- TFrameBr; 

RBase ^ RBasc[Temp21; 

Temp2 <- T, T <- Md; 

T <- T and (7c); 

Tempi *- T; 

RBase *- RBase[Top]; 

Q *- Top; 

T ^ T - T - 1; 

RBase *- RBasc[Templ]; 



"T was incremented at RProg + 3 



*Nil T for store of Self 



.NcLoop: 

T <- T + (Selfl.oc.c) + 1; 

MemBase <- AemMemBase; 

Store +- T, Md *- Q; 

T <- (Templ)^T;^ 

Tempi ♦- T, MemBase +- TFrameBr, Branch[.NcDone, Alu < 0]; 



* First time, store Self-then args 
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lemp2 <- (Fetch <- Temp2) - 1; 
Q *- Md, Branch[.NcLoopj; 

.NcDone: 

~ McmBasc *- AcmMcmBase; 

MyTcmp «- (PrimTabLoc.c); 

Fetch *- MyTcmp; 

T <- (Tcrap3) + (Md); 
addr 

Fetch <- T; 

T •<- Md, Branch[FetchTPc]; 

PrimRct: 

KnowRBase[AEMRegs]; 

T ♦- Argl; 

lop ♦- T; 

McmBase ♦- BCoreBr; 

MyTcmp <- (Ic); 

Fetch <- MyTemp; 

T <- (7c); 

T *- T and (Md); 

RBase <- RBasc[StackP]; 

T <- (StackP) - T, Branch[Stor]; 

PrimFail: 

RBase *■ RBase[BOop]; 

T *- BOop, Call fRcfCkLlnc l; 

Branch[.DoBytes]; 

*Do a Smalltalk-coded method 



*Add primitive number to primitive table 



By 



all[RefLastInc]; 



.DoBytes: 
■'^Call[ACtxt]; 
RBase <- RBase[AOop]; 
AOop *- T, RBase ♦- RBase[Templ]; 
MemBase ♦- ACoreBr; 
BrLo *- Tempi; 

T <- T - T. RBase ^ RBase[Ctxt]; 
T <- (Store ♦- 1') + 1, Md <- Ctxt; 
RBase <- RBase[Top]; 
T <- (Store *- T) + 1, Md <- Top; 

MyTemp *- T - T - 1; 

T <- (Store *- T) + 1, Md <- MyTemp; 

RBase ^ RBasc[BOop]; 

Store <- T, Md ^ BOop; 

MemBase *- BCoreBr; 

T <- (Ic); 

Fetch <- T; 

T <- Md; 

RBase ♦- RBase[AemRegs]; 

Argl *- Rsh['r, 10]; 

J^Base <- RBasc[Name]; 

Name *- T <- T and (377c); 

RBase <- RBasc[StackP]; 



*Bump refct of method 



*T has oop of new^ arec 
*Templ has core address 



*New AR[Sender] <- retiring activation 

*New AR[Inst] ♦- top of old stack 

*-l 

*New AR[Class] ♦- Nil 

*New AR[Codc]*- MDict[Literal Op] 

* Address second word of code 

*wait for T to load 

*Argl *- TSizc (Byte #2 of code) 

*Name *- NArgs (Byte #3 of code) 
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Stack? <- (StackP) - (T) - 1, RBasc <- RBasc[AemRcgs]; *Pop the object and its args 

T <- Argl; 

Tcmp4 ^ T, Call[AVcc]; * Allocate vector, Tcmp4 <- TSizc (Uses FF) 

Mem Base *- ACoreBr; 

T «- (4c); 

RBase <- RBase[AemRegs]; 

Store *- T, Md <- Argl; *New A R [Temp frame] <- that vector 

*Loop to store args and nil stack and temp part of tframe 
*RctN2 is the offset in Tframe which points at the last slot filled, 
*starts out as size of tframe 



RBase <- RBase[Name]; 
T *- Name, RBase *- RBasc[Temp4]; 
T ♦- r - (Temp4); 
Cnt *■ T; 

MyTemp <- AllOnes.c; 
RMRegion[Tcmps] 

T <- (Tempi) - 1, MemBase ♦- AcmMemBase; 

T *- (Temp4) + T, Branch[.NoTemps, Cnt=0& + 1]; 



*T <- - # of temps to nil 

*prepare nil-MyTemp is in 

*Since relative to zero 

*prepare pointer to slot in new terapframe 



.PutLp: 

T <- (Store ♦- T) - 1, Md <- MyTemp, Branch[.PutLp, Cnt#0& + 1]; *Address current element 



*T <- Old StackP 



.NoTemps: 

RBase - RBase[StackP]; 

T - (StackP) + 1, TaskingOff; 

MemBase <- TFrameBr; 

B ♦- Md; *Necessary after a store and before a DummyRef so won't hold 

DummyRef ^ T; 

T *■ Pipel; 

Nop; 

BrLo *■ T; 

TaskingOn; 

RBase ^ RBase[Name]; 

T ♦- Name, RBase ♦- RBase[Templ]; 

Tempi *- (Tempi) + T; 

Branch[.NilTop]; 



*T has offset Nargs 

*Tcmpl has absolute addr. of new stack 

* Add. of lowest arg in old stack 



.Storit: 

Fetch ♦- T; 

Q <- Md; 

MemBase ♦- AcmMemBase; 

Store <- Tempi, Md <- Q; 



* fetch next arg from old stack 

*store arg on new stack, absolute addressing 



.NilTop: 

MemBase <- TFrameBr; 

Store ♦- T, Md <- MyTemp; 

T ♦- (T) - 1; *Decrement 

Tempi *- (Tempi) - 1, DblBranch[.Donelt, .Storit, Alu < 0]; *Decremcnt absolute addr. 



*Nil arg on old stack (for refct) 



.Doncit: 
Nop; 

Tempi *- (Tempi) -I- 1, Call[Stash]; 
Memliasc <- BCorcBr; 
r *- (2c); 
Fetch ♦- T; 
RBase *- Rlkse[AOopl; 



*In the next instruction, Icmpl is restored 
*Puts pc and stackp in new arec 



*Addressing third word 
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Q ^ Md; 

T ■<- AOop; 

Ctxt <- T; 

MemBase ^ ACoreBr; 

My'remp *- T - T, TaskingOff; 

DummyRef *- MyTemp; 

T *- Pipel; 

TaskingOn; 

McmBasc <- ArecBr; 

BrLo *- T; 

T - Q; 

RBasc *• RBasc[Templ]; 

Q ♦- Tempi; 

Mylemp *■ Q; 

MemBase *- TFrameBr; 

Brl.o «- MyTemp; 

RBase *- RBasc[SlackP]; 

StackP <- Rsh[T, 10]; 

StackP <- (StackP) - 1, RBasc ^ RBase[Pcb]; 

Pcb *- T and (377c); 

MemBase *- BCorcBr; 

MyTemp ♦- T - T, TaskingOff; 

DummyRef ♦- MyTemp; 

T *- Pipel; 

laskingOn, Call[MapCode]; 

RBase <- RBasc[MinAt]; 

T <- MinAt, RBase ♦- RBase[Top]; 

Lu ^ (Top) - (T); 

T *- Top, DblBranch[.NilSelf, .HashSelf, Carry]; 



'Wait for memory 



*T *• old Md 
* Store into A roc 



*Storing into TFrame 

*offset of 1st stack loc (byte #4) 

*initial pcb (byte #5) 



*T *- Core address of code, from BCore 



.NilSelf: 

T <- AllOnes.c, Branch[.LoadMe]; 



*Get ready to nil self 



ilashSelf: 

Argl - T, Call[Hash]; 
Call[Dirty]; 



*T *- core address of new self 



.LoadMe: 

MemBase <- SelfBr; 
BrLo ♦- T, Branch[Byterp]; 



*IIeigli Ho Silver, Away! 
*"Who was Oiat masked man?" 



Wrap2: 

T *- Md, Branch[.Nidl]; 
.Nid3: 

Branch[,Nidl]; 
.Nid2: 

Branch[.Nidl]; 
.Nidi: 

RBase <- RBase[SupMod]; 

T <- SupMod, Call[HashL]; 

RBase <- RBasc[SupMod]; 

MemBase *- A em MemBase; 

MyTemp ^ T -I- (SprClsF.c); 

Pctch *- MyTemp; 

SupMod *- Md; 

T <- (Md) + 1; 



*Can't abandon Md (Not used) 



*Comcs here from failure: 
*Zcro, Null MDict, Notlnd 
*Hash current MClass, no dirty 
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DblBranch[NoMsg, Dispatch, Alu = 0]; 

NoMsg: 

T <- ErrPrg.c; 

Felch <- T, Branch[RProg]; 

l^ilMsgs2; 

T *- (T) + (20c), Branch[LitMsgs]; 

LilMsgs3: 

T ^ (T) + (40c), Branch[L.itMsgs]; 



*Remcmber, Emulator BR in control 



*Address literal operator 



*Address literal operator 
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*Rcciirsivc Freer-— Enter with refct = l 

*sonic of the calls may change Link, or the saved return SavRl- 

*15c sure to check that it does not smash important returns, and Calls and 

*lkanches arc used in the right places 

Subroutine; 



Rccuf: 

Mem Base ♦- AcmMcmBase; 

RBasc ♦- RBasc[FaUier]; 

T ^ (Father) + 1, RBase *- RBascIRcPCtLink]; 

T <- RefCtLink, DblBranch[SavRs, Gpcl, Alu = 0]; 

Top Level; 

SavRs: 

RBase ♦- RBase[SavRll; 
SavRl ♦- T; 

Gpcl: 

RBase <- RBasc[AemRegs]; 

T <- Argl, RBase *- RBase[Temp31; 

Temp 3 <- T; 

Call[PClassMap]; 

MemBasc <- AcmMcmBase; 

T - Md; 

Lu <- T and (CptMsk.c); 

Lu <- T and (IscMsk.c), DblBfanch[QFinst, IsPt, Alu = 0]; 



*Fathcr=:-l Iff top-level entry 
*Gpcl- > no save for recursive 



*Savc Link for top-level entry 



*Smashes Link 



*extract cpt 
*extract isc 



IsPt: 

DblBranch[QFinstO, DoHdO, Alu = 0]; 

DoFldO: 
Nop; 

Call[Hash]; 
Call[Dirty]; 

RBase ♦- RBase[Tcmp3]; 
MemBasc *- AcmMcmBase; 
Tcmp3 *- (Fetch *- T); 
RBasc <- RBase[AemRegs]; 
MyTcmp ♦- Md, RBasc *- RBasc[Father]; 
Store ♦- T, Md <- Father; 
RBase +- RBase[AemRegs]; 
T ♦- Argl; 
Argl <- MyTcmp; 
RBasc <- RBasc[Father]; 
Father ^ T, RBase <- RBasc[RotO]; 
T <- (RolO) 4- (RctlBitx); 
MemBasc ♦- RotBascBr; 
Store *- RotA, Md ♦- T; 

Call[Refl:kDec]; 

RcRet: 

RBasc <- RBasc[Fathcr]; 
T *■ Father; 



* Branch if size zero 



*Placement 



*Fetch from core address of object 

* ref d by oop 

*Gct the data, and save it for swap 



*Father <- oop 

*RotBase needed for RotA 
*Bump refct to 2, flag first time 

*Decrement refct 



.Here: 
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Nop; 

Argl *- T, Call[I-Iash]; 

Call[Dirty]; 

T *- (T) + 1, RBase <- RBase[Temp3]; 

McmBasc *- AcmMcmBase; 

lcmp3 *- (Fetch ♦- T); 

lcmp2 <- Md, RBasc ^ RBase[RotO]; 

Lii <- (RolO) and (RctlBit.c); 

Branch[Frime, Alu = 0]; 

DoNxt: 

RBase *- RBase[Temp2]; 

T <- Tcmp2 <- (Tcmp2) - 1; 
.DoNxtl: 

T ^ (Temp3) + (T), Braiich[Out, Alu = 0]; 

Fetch ♦- T; 

RBase *■ RBasc[MinAt]; 

T <- Md; 

Lu - (T) - (MinAt); 

Gtfl: 

DontKnowR; 

Argl ^ T, Branch[.Gtf2, NoCarry]; 

RBase <- RBase[Temp2]; 

T <- Temp2 ♦- (Temp2) - 1, Branch[.DoNxtl]; 

.Gtf2: 

RBase *- RBase[Temp2]; 

T ^ lemp2; 

Store ♦- Temp3, Md <- T; 

Call[Refl3ec]; 

MemBase ♦- AemMemBase, Branch[ReRet]; 

FFime: 

KnowRBase[Iiash]; 

T *- (RotO) - (RctlBitc); 

MemBase <- RotBaseBr; 
it Store <- RotA, Md ♦- T; 

RBase <- RBasc[Argl]; 

T ♦- Argl, Call[llong]; 

MemBase <- AemMemBase; 

RBase ^ RBaseriemp2]; 

My Temp <- (T) - 1; 

T <- Temp2; 

Temp2 <- MyTemp; 
region 

DblBranch[.OutO, NotOne, Alu = 0]; 

NotOne: 

RBase - RBasc[MinAl]; 

Lu - (T) - (MinAt). Branch{Gtfll; 

Out: 

RBase <- RBase['remp31; 

T ♦- (Temp3) - 1, ]iranch[.Outl]; 
.OutO: 

KnowRBascfSlackAndTemps]; 

T ^ (l'cmp3) - 1, Branch[.Outl]; 



*Placement 

*Hash object being freed-dirty 

*Core address of field 1 



*Test even ret (means first time) 
*field 1 holds field offset 



*Look at the next field 
*test if done 

*Atom? 

*Branch if not atom (Uses FF) 
*Look at the next field 



*Decrement ref count 

*Done field zero 

*Unbump refct to 1, not first time 

*obj. length// Argl ♦- father at Here: 

*Routed through Alu//must be in same 
*Test if only had 1 field 

*Jump into inner loop 
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.Oiitl: 

RBase *- RBasc[Falher]; 
T *- Falher, Fetch «~ T; 
Tcmp3 *- T, T *- Md; 

02A: 

Father *- T, Branch[QFinst]; 



*QFinst: 



Quick Fiiist for exact si/c objects- 



QFinstO: 

RBase *- RBaseffempS]; 

T ^ Tcmp3, Call[PClassMap]; 

McmBase <- AcmMcmBase; 

^remp2 <- Md, Branch[.QFl]; 
QFinst: 

RBase <- RBase[Temp3]; 

T *- Temp3, Call[PClassMap]; 

MemBase <- AemMcmBase; 

Temp2 <- Md, Branch[.QFl]; 
.QFl: 

T *- (Tcmp2) and (RciMsk.c); 

RBase <- RBase[AemRegs]; 

Argl <- Rsh[T, 7]; 

T ^ VarClsm400.c; 

T *- T + (400c); 

Lu ^ (Argl) - T, RBase <- RBase[Temp2]; 

T ^ (Temp2) and (IscMsk.c), DblBranch[.VarOop, 



*Load father stashed in field 



*Free the instance 



*duphcate--placement constraint 



^Mytemp and Argl in sanie region 



*Compare to varlen class 
.NotVar, Carry]; 



.VarOop: 

Lu ♦- T - (lie); 

Temp2 *■ T + (ClFree.c), DblBranch[OctL, Exact, Alu> =0]; 



.NotVar: 

RBase <- RBasc[Temp2]; 

Lu ^ T - (Octv.c); 

Temp2 <- ClFree.c, DblBranch[OctL, Exact, Alu > 

Exact: 

Call[Hash]; 

Call[Dirty]; 

RBase ♦- RBase[Temp2]; 

MemBase ♦- AemMemBase; 

T *- (T) + (Temp2); 

Temp2 ♦- (Fetch +- T); 

T <- Tenip3; 

Argl - T; 

MyTemp ♦- Md; 

T <- Temp2; 
iiStore +- T, Md «- Temp3; 

T <- MyTemp; 

lemp2 ♦- T, Call[Hash]; 

Call[Dirty]; 

RBase *- RBase[Temp2]; 

Mcmfiase *- AemMemBase; 
•■pf. Store *- '[\ Md <- Temp2, Branch[FiRct]; 

*IIavc to call real I'iiist in Nova otherwise 



=0]; 



*Extract inst size 



*Hash class of object being freed-dirty 



^Might cause a purge 



*Class[Free] *■ RelDop 

*Temp2 <- Class[FreeLislIiead] 
*//hash object being freed 



'RefOop[0]<-TempXl 



OctL: 

T <- Tcmp3; 

Argl <- T; 

T *- (35c), Branch[NovaCalll; 

FiRet: 

MemBase *• AemMemBase; 

RBasc <- RBasc[Fatlier]; 

Lu *- (Father) + 1; 

T <- Father, DblBranch[RTop, .Here. Alu = 0]; 

RTop: 
-f Subroutine; 

RBase ^ RBase[SavRl]; 
Link ♦- SavRl; 
Return; 

. Top Level; 



^ I-. i^_Q i 
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*Call Finst with RefOop in AcO 
*35 traps to 76400 



*F'inst returns here via trap 
*Fathcr not nil= >more Recuf 



*Father is nil! Restore Link, and then. 
*Retum to original caller! 



